home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)md.d64 / planet plotter.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  98 lines
  1. 5 POKE56,127:CLR:POKE56576,149:POKE53272,4:POKE648,128:POKE792,116:POKE793,164
  2. 7 POKE53280,11:POKE53281,11
  3. 10 FORI=1TO6
  4. 20 READF(I):NEXT
  5. 30 DATA.73,.47,.34,.23,.065,.033
  6. 40 T=1.5708:Q=3.14159265:Q2=6.2831853:VL=.99999999
  7. 52 FORI=1TO6
  8. 54 READS(I),E(I),A(I),J(I),W(I)
  9. 56 NEXT
  10. 58 DATA87.969,.2056,72,77.1,37.58
  11. 60 DATA224.701,.0068,134.539,131.3,140.5
  12. 62 DATA365.256,.0167,186,102.6,-3
  13. 64 DATA686.980,.0934,283.407,335.7,289
  14. 66 DATA4332.125,.0478,967.641,13.6,1604
  15. 68 DATA10825.863,.0555,1775.966,95.5,2115
  16. 110 PRINT"[155][147][212]HIS PROGRAM WILL SHOW THE CONFIGURATION
  17. 120 [153]"OF THE PLANETS ON ANY DATE YOU CHOOSE
  18. 130 PRINT"BETWEEN [205]ARCH 1900 AND [196]ECEMBER 1999.
  19. 132 [153],,"PRINT#(null)TEVEN STR$ARNOLD
  20. 134 PRINT,,"[208].[207]. [194]OX 201
  21. 136 [153],,"ATNLEXANDRA, (null)TAGO
  22. 138 PRINT,,"[206]EW [218]EALAND
  23. 140 [133]"ONONONONONONONONONONONONONONONLISTYEARCLOSECLOSECLOSECMDCMDCMD";IY$
  24. 150 IL[178][195](IY$):[139]IL[178]4[176]IL[178]2[167]170
  25. 160 [153]"ON                         ":[153]"ONONONON";:[137]140
  26. 170 [139]IL[178]4[175][200](IY$,2)[179][177]"19"[167]160
  27. 180 [139]IY$[179]"0"[176]IY$[177]"9"[167]160
  28. 190 IY[178][197](IY$):[139]IY[177]100[167]IY[178]IY[171]1900
  29. 200 [133]"MONTHCLOSECLOSECLOSECMDCMDCMD";IM$
  30. 210 IM[178][197](IM$):[139]IM[177]0[175]IM[179]13[175]IM[178][181](IM)[167]230
  31. 220 [153]"ON                              ":[153]"ONONON";:[137]200
  32. 230 [133]"DAYCLOSECLOSECLOSECMDCMDCMD";ID$
  33. 240 ID[178][197](ID$):[139]ID[177]0[175]ID[179]32[175]ID[178][181](ID)[167]260
  34. 250 [153]"ON                               ":[153]"ONONON";:[137]230
  35. 260 DE[178]ID[170][181](365.25[172](IY[170](IM[179]3))[170]0.1)[170][181](30.6[172](IM[171]12[172](IM[179]3))[171]31.35)[171]29220
  36. 270 [153]"LISTLOAD(null)HICH PLANETS DO YOU WANT TO SEE ?
  37. 280 PRINT"1.  [205]ERCURY
  38. 290 [153]"2.  (null)ERCURY, (null)ENUS
  39. 300 PRINT"3.  [205]ERCURY, [214]ENUS, [197]ARTH
  40. 310 [153]"4.  (null)ERCURY, (null)ENUS, VALARTH, (null)ARS
  41. 320 PRINT"5.  [197]ARTH, [205]ARS, [202]UPITER
  42. 330 [153]"6.  VALARTH, (null)ARS, MID$UPITER, (null)ATURN
  43. 340 POKE198,0:WAIT198,1:GETID$:IFID$<"1"ORID$>"6"THEN340
  44. 350 JJ=VAL(ID$)
  45. 360 POKE53281,15:PRINT"[147][142][152]";:POKE53281,11
  46. 370 POKE33267,46:POKE55795,1
  47. 380 PRINTTAB(12)"GEMINI"TAB(21)"TAURUS
  48. 382 [153]"  CANCER"[163]32)"ARIES
  49. 383 PRINT"LEO"TAB(36)"PISC
  50. 385 [153]"VIRG"[163]36)"AQUA
  51. 387 PRINT"   LIBRA"TAB(32)"CAPRI
  52. 390 [153]""[163]12)"SCORPI"[163]21)"SAGITT";
  53. 410 F[178]F(JJ)
  54. 500 ID[178]1[170]2[172][181](JJ[173]4.5)
  55. 520 [129]I[178]ID[164]JJ
  56. 530 Z[178]DE[170]W(I)
  57. 540 J[178]J(I)[172]Q[173]180
  58. 550 P[178]A(I)[172](1[171]E(I)[172]E(I))[173]2
  59. 560 K[178]1[173]E(I)
  60. 570 U[178]P[173]E(I)
  61. 580 D[178]Z[171][181](Z[173]S(I))[172]S(I)
  62. 590 B[178]Q[171](D[173]S(I)[172]Q2)
  63. 600 RV[178]A(I)[171](P[173](1[170]E(I)[172][190](B)))
  64. 610 V[178]U[173]RV[171]K
  65. 620 [139]V[177][178]1[167]V[178]VL
  66. 630 [139]V[179][178][171]1[167]V[178][171]VL
  67. 640 V1[178][171][193](V[173][186]([171]V[172]V[170]1))[170]T
  68. 650 [139]D[177]S(I)[173]2[167]V1[178]Q2[171]V1
  69. 660 V1[178]V1[170]J
  70. 670 X[178][190](V1)[172]RV[172]F:Y[178][191](V1)[172]RV[172]F[172].75
  71. 680 [141]710
  72. 690 [130]
  73. 700 [137]340
  74. 710 X[178][181](X[170].5):Y[178][181](Y[170].5)
  75. 720 L[178]32768[170][181]((X[170]39)[173]2)[170][181]((25[171]Y)[173]2)[172]40
  76. 730 C[178]1
  77. 740 [139]X[173]2[178][181](X[173]2)[167]C[178]2
  78. 750 [139]Y[173]2[178][181](Y[173]2)[167]C[178]C[170]2
  79. 760 Z[178][194](L)
  80. 770 [145]C[141]790,890,990,1090
  81. 780 [142]
  82. 790 [139]Z[178]124[167][151]L,226:[142]
  83. 800 [139]Z[178]123[167][151]L,97:[142]
  84. 810 [139]Z[178]108[167][151]L,127:[142]
  85. 880 [151]L,126:[142]
  86. 890 [139]Z[178]126[167][151]L,226:[142]
  87. 900 [139]Z[178]123[167][151]L,255:[142]
  88. 910 [139]Z[178]108[167][151]L,225:[142]
  89. 980 [151]L,124:[142]
  90. 990 [139]Z[178]126[167][151]L,97:[142]
  91. 1000 [139]Z[178]124[167][151]L,255:[142]
  92. 1010 [139]Z[178]108[167][151]L,98:[142]
  93. 1080 [151]L,123:[142]
  94. 1090 [139]Z[178]126[167][151]L,127:[142]
  95. 1110 [139]Z[178]124[167][151]L,225:[142]
  96. 1120 [139]Z[178]123[167][151]L,98:[142]
  97. 1180 [151]L,108:[142]
  98.